home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / Resources / CutePDF 2.3 / converter.exe / GNUGS / GS_TTF.PS < prev    next >
Text File  |  2002-09-23  |  55KB  |  1,789 lines
  1. %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_ttf.ps,v 1.9.2.4 2002/09/22 12:43:55 igor Exp $
  17. % Support code for direct use of TrueType fonts.
  18. % (Not needed for Type 42 fonts.)
  19.  
  20. % Note that if you want to use this file without including the ttfont.dev
  21. % option when you built Ghostscript, you will need to load the following
  22. % files before this one:
  23. %    lib/gs_mgl_e.ps
  24. %    lib/gs_mro_e.ps
  25. %    lib/gs_wan_e.ps
  26.  
  27. % Thanks to B. Jackowski and GUST (the Polish TeX Users' Group) for
  28. % the glyf-splitting code.
  29.  
  30. [
  31.    /TTCMAP_DEBUG
  32.    /TTCMAP2_DEBUG
  33. ] {dup where {pop pop} { currentdict exch false def pop } ifelse} forall
  34.  
  35.  
  36. % ---------------- Font loading machinery ---------------- %
  37.  
  38. % Augment the FONTPATH machinery so it recognizes TrueType fonts.
  39.  
  40. /.scanfontheaders where {
  41.   pop /.scanfontheaders [
  42.    .scanfontheaders aload pop (\000\001\000\000*) (true*)
  43.   ] def
  44. } if
  45.  
  46. % <file> <key> .findfontvalue <value> true
  47. % <file> <key> .findfontvalue false
  48. % Closes the file in either case.
  49. /.findnonttfontvalue /.findfontvalue load def
  50. /.findfontvalue {
  51.   1 index read pop 2 index 1 index unread
  52.   dup 0 eq exch (t) 0 get eq or {
  53.         % If this is a font at all, it's a TrueType font.
  54.     dup /FontType eq {
  55.       pop closefile 42 true
  56.     } {
  57.       dup /FontName eq { pop .findttfontname } { pop closefile false } ifelse
  58.     } ifelse
  59.   } {
  60.         % Not a TrueType font.
  61.     .findnonttfontvalue
  62.   } ifelse
  63. } bind def
  64.  
  65. % <file> .findttfontname <fname> true
  66. % <file> .findttfontname false
  67. % Closes the file in either case.
  68. /.findttfontname {
  69.   .loadttfonttables
  70.   tabdict /name .knownget {
  71.     dup 8 getu32 f exch setfileposition
  72.     12 getu32 string f exch readstring pop
  73.     6 findname
  74.   } {
  75.     false
  76.   } ifelse
  77.   f closefile end end
  78. } bind def
  79.  
  80. % Load a font file that might be a TrueType font.
  81.  
  82. % <file> .loadfontfile -
  83. /.loadnonttfontfile /.loadfontfile load def
  84. /.loadfontfile {
  85.   dup read pop 2 copy unread 0 eq {
  86.         % If this is a font at all, it's a TrueType font.
  87.     .loadttfont pop
  88.   } {
  89.         % Not a TrueType font.
  90.     .loadnonttfontfile
  91.   } ifelse
  92. } bind def
  93.  
  94. % ---------------- Automatic Type 42 generation ---------------- %
  95.  
  96. % Load a TrueType font from a file as a Type 42 PostScript font.
  97. % The thing that makes this really messy is the handling of encodings.
  98. % There are 2 interacting tables that affect the encoding:
  99. %       'cmap' provides multiple maps from character codes to glyph indices
  100. %       'post' maps glyph indices to glyph names (if present)
  101. % What we need to get out of this is:
  102. %       Encoding mapping character codes to glyph names
  103. %         (the composition of cmap and post)
  104. %       CharStrings mapping glyph names to glyph indices
  105. %         (the inverse of post)
  106. % If the post table is missing, we have to take a guess based on the cmap
  107. % table.
  108.  
  109. /.loadttfontdict 50 dict dup begin
  110.  
  111. /orgXUID AladdinEnterprisesXUID def
  112. /maxstring 32000 def    % half the maximum length of a PostScript string,
  113.             % must be a multiple of 4 (for hmtx / loca / vmtx)
  114.  
  115. % Define the Macintosh standard mapping from characters to glyph indices.
  116. /MacRomanEncoding dup .findencoding def
  117. /MacGlyphEncoding dup .findencoding def
  118.  
  119. % Invert the MacRomanEncoding.
  120. /.romanmacdict 300 dict
  121. 0 1 MacRomanEncoding length 1 sub {
  122.   MacRomanEncoding 1 index get
  123.         % Stack: dict index charname
  124.   dup /.notdef ne {
  125.     exch 2 index 2 index .knownget {
  126.       dup type /arraytype eq {
  127.     [ exch aload pop counttomark 2 add -1 roll ]
  128.       } {
  129.     exch 2 array astore
  130.       } ifelse
  131.     } if 2 index 3 1 roll put
  132.   } {
  133.     pop pop
  134.   } ifelse
  135. } for def
  136.  
  137. % Define remapping for misnamed glyphs in TrueType 'post' tables.
  138. % There are probably a lot more than this!
  139. /postremap mark
  140.   /Cdot /Cdotaccent
  141.   /Edot /Edotaccent
  142.   /Eoverdot /Edotaccent
  143.   /Gdot /Gdotaccent
  144.   /Ldot /Ldotaccent
  145.   /Zdot /Zdotaccent
  146.   /cdot /cdotaccent 
  147.   /edot /edotaccent 
  148.   /eoverdot /edotaccent
  149.   /gdot /gdotaccent 
  150.   /ldot /ldotaccent
  151.   /zdot /zdotaccent 
  152. .dicttomark readonly def
  153.  
  154. % ---- Utilities ---- %
  155.  
  156. % Define a serial number for creating unique XUIDs for TrueType fonts.
  157. % We used to use the checkSumAdjustment value from the font, but this is
  158. % not reliable, since some fonts don't set it correctly.
  159. % Note that we must do this in a string to make it immune to save/restore.
  160. /xuidstring <80000000> def
  161. /curxuid {        % - curxuid <int>
  162.   0 xuidstring { exch 8 bitshift exch add } forall
  163. } bind def
  164. /nextxuid {        % - nextxuid -
  165.   3 -1 0 {
  166.     xuidstring 1 index 2 copy get dup 255 ne {
  167.       1 add put pop exit
  168.     } if pop 0 put pop
  169.   } for
  170. } bind def
  171.  
  172. % <string> <index> getu16 <integer>
  173. /getu16 {
  174.   2 copy get 8 bitshift 3 1 roll 1 add get add
  175. } bind def
  176.  
  177. % <string> <index> gets16 <integer>
  178. /gets16 {
  179.   getu16 16#8000 xor 16#8000 sub
  180. } bind def
  181.  
  182. % <string> <index> getu32 <integer>
  183. /getu32 {
  184.   2 copy getu16 16 bitshift 3 1 roll 2 add getu16 add
  185. } bind def
  186.  
  187. % <string> <index> gets32 <integer>
  188. /gets32 {
  189.   2 copy gets16 16 bitshift 3 1 roll 2 add getu16 add
  190. } bind def
  191.  
  192. % <string> <index> <integer> putu16 -
  193. /putu16 {
  194.   3 copy -8 bitshift put
  195.   exch 1 add exch 16#ff and put
  196. } bind def
  197.  
  198. % <string> <index> <integer> putu32 -
  199. /putu32 {
  200.   3 copy -16 bitshift putu16
  201.   exch 2 add exch 16#ffff and putu16
  202. } bind def
  203.  
  204. % <string> .strtoint <integer>
  205. /.strtoint {
  206.   0 exch { exch 8 bitshift add } forall
  207. } bind def
  208.  
  209. % <nametable> <nameid> findname <string> true
  210. % <nametable> <nameid> findname false
  211. /findname {
  212.   DEBUG { (findname: ) print dup =only  } if
  213.   false 3 1 roll 0 1 3 index 2 getu16 1 sub {
  214.         % Stack: false table id index
  215.     12 mul 6 add 2 index exch 12 getinterval
  216.     dup 6 getu16 2 index eq {
  217.         % We found the name we want.
  218.       exch pop
  219.         % Stack: false table record
  220.       dup 10 getu16 2 index 4 getu16 add
  221.       1 index 8 getu16 4 -1 roll 3 1 roll getinterval exch
  222.         % Stack: false string record
  223.         % Check for 8- vs. 16-bit characters.
  224.       is2byte { string2to1 } if true null 4 -1 roll exit
  225.     } if pop
  226.   } for pop pop
  227.   DEBUG {
  228.     dup { ( = ) print 1 index == } { ( not found) = } ifelse
  229.   } if
  230. } bind def
  231.  
  232. % <namerecord> is2byte <bool>
  233. /is2byte {
  234.   dup 0 getu16 {
  235.     { pop true }        % Apple Unicode
  236.     { pop false }        % Macintosh Script manager
  237.     { 1 getu16 1 eq }        % ISO
  238.     { 1 getu16 1 eq }        % Microsoft
  239.   } exch get exec
  240. } bind def
  241.  
  242. % <string2> string2to1 <string>
  243. /string2to1 {
  244.   dup length 2 idiv string dup
  245.   0 1 3 index length 1 sub {
  246.     3 index 1 index 2 mul 1 add get put dup
  247.   } for pop exch pop
  248. } bind def
  249.  
  250. % <array> <lt-proc> sort <array>
  251. /sort {
  252.   1 index length 1 sub -1 1 {
  253.     2 index exch 2 copy get 3 copy    % arr proc arr i arr[i] arr i arr[i]
  254.     0 1 3 index 1 sub {
  255.       3 index 1 index get    % arr proc arr i arr[i] arr imax amax j arr[j]
  256.       2 index 1 index 10 index exec {    % ... amax < arr[j]
  257.     4 2 roll
  258.       } if pop pop
  259.     } for            % arr proc arr i arr[i] arr imax amax
  260.     4 -1 roll exch 4 1 roll put put
  261.   } for pop
  262. } def
  263.  
  264. % <array|string> <index> <count> .safegetinterval <subarray|substring>
  265. /.safegetinterval {
  266.   exch 2 index length .min exch
  267.   2 index length 2 index sub .min
  268.   getinterval
  269. } bind def
  270.  
  271. % <array> <index> <obj> .safeput -
  272. /.safeput {
  273.   2 index length 2 index gt { put } { pop pop pop } ifelse
  274. } bind def
  275.  
  276. % Each procedure in this dictionary is called as follows:
  277. %       <encodingtable> proc <glypharray>
  278. /cmapformats mark
  279.   0 {        % Apple standard 1-to-1 mapping.
  280.     6 256 getinterval { } forall 256 packedarray
  281.   } bind
  282.   2 {        % Apple 16bit CJK (ShiftJIS etc)
  283.  
  284.     % /sHK_sz        subHeaderKey_size    % 1 * uint16
  285.     % /sH_sz        subHeader_size        % 4 * uint16
  286.     % /sH_len        subHeader_length
  287.     % /cmapf2_tblen    total table length
  288.     % /cmapf2_lang    language code (not used)
  289.     % /sHKs        subHeaderKeys
  290.  
  291.     /sHK_sz 2 def
  292.     /sH_sz 8 def
  293.     dup 2 getu16 /cmapf2_tblen exch def
  294.  
  295.     TTCMAP2_DEBUG {
  296.        (format2 table length: 0x) print
  297.        cmapf2_tblen 16 10 string cvrs print
  298.        (=) print
  299.        cmapf2_tblen == flush
  300.     } if
  301.     dup 4 getu16 /cmapf2_lang exch def
  302.  
  303.     TTCMAP2_DEBUG {
  304.        (format2 lang code: 0x) print
  305.        cmapf2_lang 16 10 string cvrs == flush
  306.     } if
  307.     dup 6 256 sHK_sz mul getinterval /sHKs exch def
  308.     TTCMAP2_DEBUG {
  309.        (format2 subHeaderKeys: ) print
  310.        sHKs == flush
  311.        (scan subHeaderKeys\n) print flush
  312.     } if
  313.  
  314.     0        % initialization value for /sH_len
  315.     0 1 255 {
  316.        TTCMAP2_DEBUG {
  317.           (hi byte ) =only
  318.           dup 16 10 string cvrs =only
  319.           (-> subHeader #) print
  320.           flush
  321.        } if
  322.        sHKs exch
  323.        2 mul getu16
  324.        TTCMAP2_DEBUG {
  325.           dup 16 10 string cvrs =only
  326.           ( ) print dup == flush
  327.        } if
  328.        1 index    % get current max
  329.        1 index    % get current subHeaderKey
  330.        lt {exch} if pop
  331.     } for
  332.     /sH_len exch def
  333.  
  334.     TTCMAP2_DEBUG {
  335.       (format2 subHeader length: ) print
  336.       sH_len ==
  337.       flush
  338.     } if
  339.     dup 6 256 sHK_sz mul add
  340.     cmapf2_tblen 1 index sub getinterval
  341.     /sH_gIA exch def
  342.     TTCMAP2_DEBUG {
  343.        (format2 subHeaders + GID array: ) print
  344.        sH_gIA ==
  345.     } if
  346.  
  347.     /cmapf2_glyph_array 65535 array def
  348.  
  349.     /.cmapf2_putGID {
  350.         /cmapf2_ch cmapf2_ch_hi 8 bitshift cmapf2_ch_lo add def
  351.         TTCMAP2_DEBUG {
  352.             (code: ) =only cmapf2_ch 16 4 string cvrs =only
  353.             ( -> ) =only
  354.         } if
  355.         firstCode cmapf2_ch_lo le
  356.         cmapf2_ch_lo firstCode entryCount add lt
  357.         and { % true: j is inside
  358.             sH_offset idRangeOffset add        % offset to gI
  359.             cmapf2_ch_lo firstCode sub 2 mul    % rel. pos. in range
  360.             add 6 add                % offset in sH_gIA
  361.             sH_gIA exch getu16
  362.             dup 0 gt { % 
  363.                 TTCMAP2_DEBUG {
  364.                     dup 16 8 string cvrs =only
  365.                     (+) =only idDelta 16 8 string cvrs =only
  366.                 } if
  367.                 idDelta add
  368.                 TTCMAP2_DEBUG {
  369.                     (=) =only dup 16 8 string cvrs == flush
  370.                 } if
  371.                 cmapf2_glyph_array exch cmapf2_ch exch put
  372.             } {
  373.                 TTCMAP2_DEBUG {(specified 0: 0\n) print flush} if
  374.                 pop
  375.                 % cmapf2_glyph_array cmapf2_ch 0 put
  376.             } ifelse
  377.         } {   % false: j is outside
  378.             TTCMAP2_DEBUG {(outside of range: 0\n) print flush} if
  379.             % cmapf2_glyph_array cmapf2_ch 0 put
  380.         } ifelse
  381.     } def
  382.  
  383.     16#00 1 16#ff { % hi_byte scan
  384.         /cmapf2_ch_hi exch def
  385.         sHKs cmapf2_ch_hi sHK_sz mul getu16
  386.         TTCMAP2_DEBUG {
  387.             (subHeader_offset = idx * 8 = ) print
  388.             dup ==
  389.         } if
  390.         /sH_offset exch def
  391.         sH_gIA sH_offset sH_sz getinterval
  392.             dup 0 getu16 /firstCode exch def
  393.             dup 2 getu16 /entryCount exch def
  394.             dup 4 gets16 /idDelta exch def
  395.             dup 6 getu16 /idRangeOffset exch def
  396.         pop
  397.         TTCMAP2_DEBUG {
  398.            (idRangeOffset: ) print idRangeOffset 16 8 string cvrs ==
  399.         } if
  400.         sH_offset 0 eq {
  401.            /cmapf2_ch_lo cmapf2_ch_hi def
  402.            /cmapf2_ch_hi 0 def
  403.            .cmapf2_putGID
  404.         } {
  405.            16#00 1 16#ff { % lo_byte scan
  406.                /cmapf2_ch_lo exch def
  407.                .cmapf2_putGID
  408.            } for
  409.         } ifelse
  410.      } for
  411.      pop
  412.      0 1 cmapf2_glyph_array length 1 sub { % rewrite null -> 0.
  413.         % TTCMAP2_DEBUG { (rewriting null: ) print dup == flush } if
  414.         dup cmapf2_glyph_array exch get
  415.         null eq { cmapf2_glyph_array exch 0 put } {pop} ifelse 
  416.      } for
  417.      TTCMAP2_DEBUG { (rewriting finished\n) print flush } if
  418.      cmapf2_glyph_array
  419.      TTCMAP2_DEBUG {
  420.        16#0000 16#0010 16#fff0 {
  421.           16#0000 16#0001 16#000f {
  422.              1 index add dup 16#ffff lt {
  423.                2 index exch get =only
  424.                ( ) =only
  425.              } { pop } ifelse
  426.           } for
  427.           pop
  428.           (\n) print flush
  429.        } for
  430.      } if
  431.   } bind
  432.   4 {        % Microsoft/Adobe segmented mapping.
  433.     /etab exch def
  434.     /nseg2 etab 6 getu16 def
  435.     14 /endc etab 2 index nseg2 getinterval def
  436.         % The Apple TrueType documentation omits the 2-byte
  437.         % 'reserved pad' that follows the endCount vector!
  438.     2 add
  439.     nseg2 add /startc etab 2 index nseg2 getinterval def
  440.     nseg2 add /iddelta etab 2 index nseg2 getinterval def
  441.     nseg2 add /idroff etab 2 index nseg2 getinterval def
  442.         % The following hack allows us to properly handle
  443.         % idiosyncratic fonts that start at 0xf000:
  444.     pop
  445.     /firstcode startc 0 getu16 16#ff00 and dup 16#f000 ne { pop 0 } if def
  446.     /putglyph {
  447.       glyphs code 3 -1 roll put /code code 1 add def
  448.     } bind def
  449.         % Do a first pass to compute the size of the glyphs array.
  450.     /numcodes 0 def /glyphs 0 0 2 nseg2 3 sub {
  451.         % Stack: /glyphs numglyphs i2
  452.       /i2 exch def
  453.       /scode startc i2 getu16 def
  454.       /ecode endc i2 getu16 def
  455.       numcodes scode firstcode sub
  456.         % Hack for fonts that have only 0x0000 and 0xf000 ranges
  457.       %dup 16#e000 ge { 255 and } if
  458.       % the previous line is obstructive to CJK fonts, so it was removed
  459.       exch sub 0 .max ecode scode sub 1 add add
  460.       exch 1 index add exch
  461.       numcodes add /numcodes exch def
  462.     } for array def
  463.         % Now fill in the array.
  464.     /numcodes 0 def /code 0 def
  465.     0 2 nseg2 3 sub {
  466.       /i2 exch def
  467.       /scode startc i2 getu16 def
  468.       /ecode endc i2 getu16 def
  469.       numcodes scode firstcode sub
  470.         % Hack for fonts that have only 0x0000 and 0xf000 ranges
  471.       %dup 16#e000 ge { 255 and } if
  472.       % the previous line is obstructive to CJK fonts, so it was removed
  473.       exch sub 0 .max dup { 0 putglyph } repeat
  474.       ecode scode sub 1 add add numcodes add /numcodes exch def
  475.       /delta iddelta i2 gets16 def
  476.       DEBUG {
  477.     (scode=) print scode =only
  478.     ( ecode=) print ecode =only
  479.     ( delta=) print delta =only
  480.     ( droff=) print idroff i2 getu16 =
  481.       } if
  482.       idroff i2 getu16 dup 0 eq {
  483.     pop scode delta add 65535 and 1 ecode delta add 65535 and
  484.     { putglyph } for
  485.       } {    % The +2 is for the 'reserved pad'.
  486.         /gloff exch 14 nseg2 3 mul add 2 add i2 add add def
  487.         0 1 ecode scode sub {
  488.       2 mul gloff add etab exch getu16
  489.       dup 0 ne { delta add 65535 and } if putglyph
  490.     } for
  491.       } ifelse
  492.     } for glyphs /glyphs null def    % for GC
  493.   } bind
  494.   6 {        % Single interval lookup.
  495.     dup 6 getu16 /firstcode exch def dup 8 getu16 /ng exch def
  496.     firstcode ng add array
  497.         % Stack: tab array
  498.         % Fill elements 0 .. firstcode-1 with 0
  499.     0 1 firstcode 1 sub { 2 copy 0 put pop } for
  500.     dup firstcode ng getinterval
  501.         % Stack: tab array subarray
  502.         % Fill elements firstcode .. firstcode+nvalue-1 with glyph values
  503.     0 1 ng 1 sub {
  504.       dup 2 mul 10 add 4 index exch getu16 3 copy put pop pop
  505.     } for pop exch pop
  506.   } bind
  507. .dicttomark readonly def                % cmapformats
  508.  
  509. % <cmaptab> cmaparray <glypharray>
  510. /cmaparray {
  511.   dup 0 getu16
  512.  
  513.   cmapformats exch .knownget {
  514.     DEBUG {
  515.       (cmap: format ) print 1 index 0 getu16 = flush
  516.     } if exec
  517.   } {
  518.     (Can't handle format ) print 0 getu16 = flush
  519.     0 1 255 { } for 256 packedarray
  520.   } ifelse
  521.   DEBUG {
  522.     (cmap: length=) print dup length = dup ==
  523.   } if
  524. } bind def
  525.  
  526. % Each procedure in this dictionary is called as follows:
  527. %       posttable <<proc>> glyphencoding
  528. /postformats mark
  529.   16#00010000  {    % 258 standard Macintosh glyphs.
  530.     pop MacGlyphEncoding
  531.   }
  532.   16#00020000  {    % Detailed map, required by Microsoft fonts.
  533.     /postglyphs exch def
  534.       postglyphs 32 getu16 /numglyphs exch def
  535.       /glyphnames numglyphs 2 mul 34 add def
  536.       [ 0 1 numglyphs 1 sub {
  537.     2 mul 34 add postglyphs exch getu16
  538.     dup 258 lt {
  539.       MacGlyphEncoding exch get
  540.     } {
  541.       dup 32768 ge {
  542.         % According to the published TrueType spec, such values are
  543.         % "reserved for future use", but at least some PDF files
  544.         % produced by the Adobe PDF library contain entries with a
  545.         % value of 16#ffff.
  546.         pop /.notdef
  547.       } {
  548.         258 sub glyphnames exch {
  549.           postglyphs 1 index get 1 add add
  550.         } repeat
  551.         1 add postglyphs exch 2 copy 1 sub get getinterval cvn
  552.         % At least some of Microsoft's TrueType fonts use incorrect
  553.         % (Adobe-incompatible) names for some glyphs.
  554.         % Correct for this here.
  555.         postremap 1 index .knownget { exch pop } if
  556.       } ifelse
  557.     } ifelse
  558.       } for ]
  559.   } bind
  560.   16#00030000  {    % No map.
  561.     pop [ ]
  562.   } bind
  563. .dicttomark readonly def                % postformats
  564.  
  565. % Each procedure in this dictionary is called as follows:
  566. %    <file> <length> -proc- <string|array_of_strings>
  567. % Note that each table must have an even length, because of a strange
  568. % Adobe requirement that each sfnts entry have even length.
  569. /readtables mark
  570.     % Ordinary tables
  571.   (cmap) { .readtable }
  572.   (head) 1 index
  573.   (hhea) 1 index
  574.   (maxp) 1 index
  575.   (name) 1 index
  576.   (OS/2) 1 index
  577.   (post) 1 index
  578.   (vhea) 1 index
  579.     % Big tables
  580.   (glyf) { .readbigtable }
  581.   (loca) 1 index
  582.   (hmtx) 1 index
  583.   (vmtx) 1 index
  584.     % Tables only needed for embedding in PDF files
  585.   (cvt ) { .readtable }
  586.   (fpgm) 1 index
  587.   (prep) 1 index
  588.   (GSUB) 1 index
  589. .dicttomark
  590. % Normally there would be a 'readonly' here, but the ttf2pf utility wants
  591. % to include the 'kern' table as well, so we leave the readtables dictionary
  592. % writable.
  593. def                % readtables
  594.  
  595. % Read a table as a single string.
  596. % <file> <length> .readtable <string>
  597. /.readtable {
  598.   dup dup 1 and add string
  599.         % Stack: f len str
  600.   dup 0 4 -1 roll getinterval
  601.         % Stack: f str str1
  602.     % Because of the absurd PostScript specification that gives an
  603.     % error for reading into an empty string, we have to check for
  604.     % this explicitly here.
  605.   3 -1 roll exch
  606.   dup () ne { readstring } if pop pop
  607. } bind def
  608.  
  609. % Read a big table (one that may exceed 64K).
  610. % <file> <length> .readbigtable <string[s]>
  611. /.readbigtable {
  612.   dup 65400 lt {
  613.     .readtable
  614.   } {
  615.     currentuserparams /VMReclaim get -2 vmreclaim
  616.     [ 4 2 roll {
  617.         % Stack: mark ... f left
  618.       dup maxstring le { exit } if
  619.       1 index maxstring string readstring pop 3 1 roll maxstring sub
  620.     } loop .readtable ]
  621.     exch vmreclaim
  622.   } ifelse
  623. } bind def
  624.  
  625. end readonly def                % .loadttfontdict
  626.  
  627. % <tab> .printtab -
  628. /.printtab {
  629.   dup 0 4 getinterval print ( ) print
  630.   dup 8 getu32 =only ( ) print
  631.   12 getu32 =
  632. } bind def
  633.  
  634. % <file> .loadttfonttables -
  635. % <file> <fontindex> .loadttfonttables - % extention by hideyuki
  636. % Pushes .loadttfontdict & scratch dict on d-stack.
  637. % Defines f, offsets, tables, tabdict, tabs.
  638. /.loadttfonttables {
  639.   .loadttfontdict begin
  640.   40 dict begin
  641.   dup type /integertype eq % extention by hideyuki
  642.   { 1 sub } { 0 } ifelse /findex exch def
  643.   /f exch def
  644.   /offsets f 12 string readstring pop def
  645.  
  646.   % TrueType Collection File support
  647.   % Jan 11 2000: Hideyuki Suzuki <hideyuki@sat.t.u-tokyo.ac.jp>
  648.   % Feb 10 2001: suzuki toshiya <mpsuzuki@hiroshima-u.ac.jp>
  649.   offsets 0 4 getinterval (ttcf) eq {
  650.     [ 1 1 offsets 8 getu32 { pop f 4 string readstring pop 0 getu32} for ]
  651.     dup findex get dup /ttcheader exch def exch length 4 mul 12 add sub
  652.     %dup 0 gt { string f exch readstring pop } if pop
  653.     f fileposition add f exch setfileposition
  654.     % the previous line is for very large ttcf, hacked by suzuki toshiya
  655.     /offsets f 12 string readstring pop def
  656.   } { /ttcheader 0 def } ifelse
  657.  
  658.   /tables f offsets 4 getu16 16 mul string readstring pop def
  659.   /tabdict tables length 16 idiv dict def
  660.     % tabs = tables we want to keep, sorted by file position.
  661.   /tabs [ 0 16 tables length 1 sub {
  662.     tables exch 16 getinterval
  663.     DEBUG { dup .printtab } if
  664.     dup 0 4 getinterval readtables 1 index known {
  665.       tabdict exch 2 index put
  666.     } {
  667.       pop pop
  668.     } ifelse
  669.   } for ] {
  670.     exch 8 getu32 exch 8 getu32 lt
  671.   } sort def
  672.     % In certain malformed TrueType fonts, tables overlap.
  673.     % Truncate tables if necessary.
  674.   0 1 tabs length 2 sub {
  675.     dup tabs exch get exch 1 add tabs exch get
  676.     1 index 8 getu32 2 index 12 getu32 add
  677.     1 index 8 getu32 gt {
  678.       (**** Warning: ) print 1 index 0 4 getinterval print
  679.       ( overlaps ) print dup 0 4 getinterval print
  680.       (, truncating.) = flush
  681.       dup 8 getu32 2 index 8 getu32 sub
  682.       2 index 12 3 -1 roll putu32
  683.     } if pop pop
  684.   } for
  685. } bind def
  686.  
  687. % - .readttdata -
  688. % Read data.  Updates offsets, tabs; stores data in tabdict.
  689. /.readttdata {
  690.  
  691.   % TrueType Collection File support
  692.   % Jan 11 2000: Hideyuki Suzuki <hideyuki@sat.t.u-tokyo.ac.jp>
  693.   % /fpos offsets length tables length add def
  694.   /fpos ttcheader offsets length tables length add add def
  695.   /sfpos offsets length tabs length 16 mul add def
  696.   offsets 4 tabs length putu16
  697.   tabs {
  698.     dup 0 4 getinterval /tname exch def
  699.     dup 8 getu32 /tpos exch def
  700.     dup 12 getu32 /tlen exch def
  701.     8 sfpos putu32
  702.     % Skip data between the end of the previous table and
  703.     % the beginning of this one, if any.
  704.     tpos fpos gt {
  705.       f tpos fpos sub () /SubFileDecode filter dup flushfile closefile
  706.       /fpos tpos def
  707.     } if
  708.     f tlen readtables tname get exec
  709.     tabdict tname 3 -1 roll put
  710.     /fpos fpos tlen add def
  711.     % Round up the table length to an even value.
  712.     /sfpos sfpos tlen dup 1 and add add def
  713.   } forall
  714. } bind def
  715.  
  716. % Find the string in a list of strings that includes a given index.
  717. % <strings> <index> .findseg <string> <index'>
  718. /.findseg {
  719.   exch {
  720.     dup length 2 index gt { exch exit } if
  721.     length sub
  722.   } forall
  723. } bind def
  724.  
  725. % - .makesfnts -
  726. % Defines checksum, getloca, head, locatable, numloca, post, sfnts, upem
  727. /.makesfnts {
  728.   .readttdata
  729.   /head tabdict /head get def
  730.   /locatable tabdict /loca get def
  731.   /post tabdict /post .knownget not { null } if def
  732.   /numloca
  733.     locatable dup type /stringtype eq
  734.      { length }
  735.      { 0 exch { length add } forall }
  736.     ifelse    % no def yet
  737.   locatable type /stringtype eq {
  738.     /.indexloca {} def
  739.   } {
  740.     /.indexloca /.findseg load def
  741.   } ifelse
  742.   head 50 getu16 0 ne {
  743.     /getloca {
  744.       2 bitshift locatable exch .indexloca getu32
  745.     } def
  746.     4 idiv 1 sub
  747.   } {
  748.     /getloca {
  749.       dup add locatable exch .indexloca getu16 dup add
  750.     } def
  751.     2 idiv 1 sub
  752.   } ifelse def        % numloca
  753.     % If necessary, re-partition the glyfs.
  754.   tabdict /glyf get dup type /stringtype ne {
  755.     .dividesfnts tabdict /glyf 3 -1 roll put
  756.   } {
  757.     pop
  758.   } ifelse
  759.   /sfnts [
  760.     offsets tabs { concatstrings } forall
  761.     tabs {
  762.       0 4 getinterval tabdict exch get
  763.       dup type /stringtype ne { aload pop } if
  764.     } forall
  765.   ] def
  766. } bind def
  767.  
  768. % <glyfs> .dividesfnts <glyfs'>
  769. /.dividesfnts {
  770.   /glyfs exch def
  771.   /len1 0 glyfs { length add } forall def
  772.         % Determine where to split the glyfs by scanning loca.
  773.         % The very last entry in loca may be bogus.
  774.         % Note that some loca entries may be odd, but we can only
  775.         % split at even positions.
  776.         %
  777.         % Construct splitarray, the array of final lengths of
  778.         % the sfnts entries covering the glyfs (i.e., all but
  779.         % the first and last sfnts entries).
  780.     /prevsplit 0 def
  781.     /prevboundary 0 def
  782.     /prevoddboundary 0 def % see TYPE42_NO_ODDSIZE_STR in zfont42.c
  783.     /splitarray [
  784.       0 1 numloca 1 sub {
  785.     getloca dup prevsplit maxstring add gt {
  786.           prevboundary prevsplit eq { % see TYPE42_NO_ODDSIZE_STR in zfont42.c
  787.              /ferr (%stderr) (w) file def
  788.              ferr (glyf table ) writestring
  789.              ferr prevsplit 10 string cvs writestring
  790.              ferr ( - ) writestring
  791.              dup 10 string cvs ferr exch writestring
  792.              ferr ( too long segment without suitable boundary.\n)
  793.              writestring
  794.              ferr closefile
  795.              /prevboundary prevoddboundary def
  796.           } if
  797.           DEBUG {
  798.              dup 10 string cvs print
  799.              ( segment is longer than maxstring, split now ) print
  800.              prevboundary 10 string cvs print
  801.              ( - ) print
  802.              prevsplit 10 string cvs print
  803.              (\n) print
  804.           } if
  805.       prevboundary prevsplit sub exch
  806.       /prevsplit prevboundary def
  807.           % /prevoddboundary 0 def
  808.     } if
  809.     dup 1 and 0 eq { % see TYPE42_NO_ODDSIZE_STR in zfont42.c
  810.           DEBUG {
  811.             dup 10 string cvs print
  812.             ( \() print
  813.             dup prevsplit sub 10 string cvs print
  814.             (\) ) print
  815.             ( even length OK\n) print
  816.     } if
  817.           /prevboundary exch def
  818.           % /prevoddboundary 0 def
  819.         } {
  820.           DEBUG {
  821.             dup 10 string cvs print
  822.             ( \() print
  823.             dup prevsplit sub 10 string cvs print
  824.             (\) ) print
  825.             ( odd length!\n) print
  826.     } if
  827.           % prevoddboundary 0 eq {
  828.             /prevoddboundary exch def
  829.           % } { pop } ifelse
  830.         } ifelse
  831.         % dup 0 eq { (why ZERO?\n) print } if
  832.         % dup ==
  833.       } for
  834.       len1 prevsplit sub
  835.     ] def
  836.     currentuserparams /VMReclaim get -2 vmreclaim
  837.     [
  838.         % Re-split the sfnts glyfs strings according to splitarray.
  839.         % We do this by iterating over the final segments defined
  840.         % by splitarray, and constructing them from pieces of the
  841.         % current glyfs strings.  We recycle the current strings
  842.         % when possible, to avoid stressing the allocator.
  843.       /sfnt_idx 0 def
  844.       /strpos 0 def
  845.       /avail () def
  846.       splitarray {
  847.     /seglen exch def
  848.     /segpos 0 def
  849.     avail length seglen ge
  850.       { avail 0 seglen getinterval /avail () def } { seglen string }
  851.     ifelse
  852.     {
  853.       /str glyfs sfnt_idx get def
  854.       /strlen str length def
  855.       /strleft strlen strpos sub def
  856.       seglen segpos sub strleft lt { exit } if
  857.         % Copy the (rest of the) string into the new segment.
  858.         % We know strleft <= segleft.
  859.       dup segpos str strpos strleft getinterval putinterval
  860.       /segpos segpos strleft add def
  861.       /avail str def
  862.       /sfnt_idx sfnt_idx 1 add def
  863.       /strpos 0 def
  864.       segpos seglen eq { exit } if
  865.     } loop
  866.         % Fill up the segment with an initial piece of the next
  867.         % existing glyfs string.  We know strleft > segleft.
  868.     /segleft seglen segpos sub def
  869.     dup segpos str strpos segleft getinterval putinterval
  870.     /strpos strpos segleft add def
  871.       } forall
  872.     ]
  873.     exch vmreclaim
  874. } bind def
  875.  
  876. % - .getpost -
  877. % Uses post, defines glyphencoding
  878. /.getpost {
  879.   /glyphencoding post null eq {
  880.     DEBUG { (post missing) = flush } if [ ]
  881.   } {
  882.     postformats post 0 getu32 .knownget {
  883.       DEBUG {
  884.     (post: format ) print
  885.     post 0 getu16 =only (,) print post 2 getu16 = flush
  886.       } if
  887.       post exch exec
  888.     } {
  889.       DEBUG { (post: unknown format ) print post 0 getu32 = flush } if [ ]
  890.     } ifelse
  891.   } ifelse def
  892. } bind def
  893.  
  894. % - .ttkeys <key> <value> ...
  895. /.ttkeys {
  896.   count /ttkeycount exch def
  897.   /upem head 18 getu16 def
  898.   /FontMatrix matrix
  899.   /FontBBox [ 36 2 42 { head exch gets16 upem div } for ]
  900.   nextxuid
  901.   tabdict /name .knownget {
  902.         % Find the names from the 'name' table.
  903.     /names exch def
  904.     /FontName names 6 findname not { curxuid 16 8 string cvrs } if
  905.       /fontname 1 index def
  906.     /FontInfo mark
  907.       names 0 findname { /Notice exch } if
  908.       names 1 findname { /FamilyName exch } if
  909.       names 4 findname { /FullName exch } if
  910.       names 5 findname { /Version exch } if
  911.   } {
  912.         % No name table, fabricate a FontName.
  913.     /FontName curxuid 16 8 string cvrs
  914.       /fontname 1 index def
  915.     /FontInfo mark
  916.   } ifelse
  917.   DEBUG { (fontname ) print fontname = } if
  918.         % Stack: ... /FontInfo mark key1 value1 ...
  919.   post null ne {
  920.     /ItalicAngle post 4 gets32 65536.0 div
  921.     /isFixedPitch post 12 getu32 0 ne
  922.     /UnderlinePosition post 8 gets16 upem div
  923.     /UnderlineThickness post 10 gets16 upem div
  924.   } if
  925.   counttomark 0 ne { .dicttomark } { pop pop } ifelse
  926.   /XUID [orgXUID 42 curxuid]
  927.   DEBUG {
  928.     tabs { .printtab } forall
  929.     [ sfnts { length } forall ] ==
  930.     count ttkeycount sub array astore dup { == } forall aload pop
  931.   } if
  932.   /sfnts sfnts
  933. } bind def
  934.  
  935. % ---------------- Standard TrueType font loading ---------------- %
  936.  
  937. % - .pickcmap -
  938. % Defines cmapsub, cmaptab
  939. /.pickcmap {
  940.   tabdict /cmap get
  941.         % The Apple cmap format is no help in determining the encoding.
  942.         % Look for a Microsoft table.  If we can't find one,
  943.         % just use the first table, whatever it is.
  944.   dup 4 8 getinterval exch             % the default
  945.   0 1 2 index 2 getu16 1 sub {
  946.     8 mul 4 add 1 index exch 8 getinterval
  947.     dup 0 getu16 /cmap_platform exch def
  948.     dup 2 getu16 /cmap_encoding exch def
  949.     DEBUG {
  950.       (cmap: platform ) print cmap_platform =only
  951.       ( encoding ) print cmap_encoding = flush
  952.     } if
  953.     cmap_platform 3 eq { exch 3 -1 roll pop exit } if pop
  954.   } for
  955.         % Stack: subentry table
  956.   /cmapsub 2 index def
  957.   exch 4 getu32 1 index length 1 index sub getinterval
  958.   /cmaptab exch def
  959. } bind def
  960.  
  961. % <glyph> .nname <_name>
  962. /.nname {
  963.   =string cvs (_) exch concatstrings cvn
  964. } bind def
  965.  
  966. % - .charkeys /CharStrings <charstrings> /Encoding <encoding>
  967. % Resets glyphencoding
  968. /.charkeys {
  969.   DEBUG {
  970.     (glyphencoding: length=) print glyphencoding dup length = === flush
  971.   } if
  972.         % Hack: if there is no usable post table but the cmap uses
  973.         % the Microsoft Unicode encoding, use ISOLatin1Encoding.
  974.   glyphencoding length 0 eq cmapsub 0 4 getinterval <00030001> eq and {
  975.     /glyphencoding ISOLatin1Encoding dup length array copy def
  976.   } if
  977.         % If necessary, fabricate additional glyphencoding entries
  978.         % to cover all of loca, or truncate glyphencoding.
  979.   glyphencoding length numloca lt {
  980.     /glyphencoding [ glyphencoding aload pop
  981.     counttomark 1 numloca 1 sub { .nname } for ] def
  982.   } {
  983.     /glyphencoding glyphencoding 0 numloca getinterval def
  984.   } ifelse
  985.         % Some badly designed Chinese fonts have a post table
  986.         % in which all glyphs other than 0 are named .null.
  987.         % Use CharStrings to keep track of the reverse map from
  988.         % names to glyphs, and don't let any name be used for
  989.         % more than one glyph.
  990.   /CharStrings glyphencoding dup length 1 add dict    % +1 for .notdef
  991.     0 1 3 index length 1 sub {
  992.         % Stack: glyphencoding dict index
  993.       2 index 1 index get 2 index 1 index known {
  994.         % The same name maps to more than one glyph.
  995.         % Change the name.
  996.     pop dup .nname 3 index 2 index 2 index put
  997.       } if
  998.       2 index exch 3 -1 roll put
  999.     } for exch pop
  1000.         % If there is no .notdef entry, map it to glyph 0.
  1001.   dup /.notdef known not { dup /.notdef 0 put } if
  1002.   readonly
  1003.   /Encoding
  1004.     [ cmaptab cmaparray dup length 256 gt { 0 256 getinterval } if
  1005.     { glyphencoding exch get } forall
  1006.     counttomark 256 exch sub { /.notdef } repeat ]
  1007.   DEBUG { (Encoding: ) print dup === flush } if
  1008. } bind def
  1009.  
  1010. % -mark- <key> <value> ... .definettfont <font>
  1011. /.definettfont {
  1012.   /FontType 42
  1013.   /PaintType 0
  1014.   DEBUG {
  1015.     (numloca=) print numloca =
  1016.   } if
  1017.   .dicttomark
  1018.   end end dup /FontName get exch definefont
  1019. } bind def
  1020.  
  1021. % <file> .loadttfont <type42font>
  1022. /.loadttfont {
  1023.   .loadttfonttables
  1024.   .makesfnts
  1025.   .getpost
  1026.   .pickcmap
  1027.   mark
  1028.   .charkeys
  1029.   .ttkeys
  1030.   .definettfont
  1031. } bind def
  1032.  
  1033. % ---------------- CIDFontType 2 font loading ---------------- %
  1034.  
  1035. % Create a string with array of CIDs
  1036. % [ <cid1> ... <cidN> ] .makecidmapstring <string>
  1037. /.makecidmapstring {
  1038.   mark exch cvx exec counttomark        % mark 1..N len
  1039.   dup 2 mul string                % mark 1..N len s
  1040.   dup 3 -1 roll 1 sub 2 mul -2 0 {        % mark 1..N s s
  1041.     2 copy 5 index -8 bitshift put        % mark 1..N s s j2
  1042.     1 add 4 -1 roll 16#ff and put dup        % mark 1..N-1 s s
  1043.   } for pop                    % mark s
  1044.   exch pop                    % s
  1045. } bind def
  1046.  
  1047. % Create a string or an array of strings with array of CIDs
  1048. % [ <cid1> ... <cidN> ] .makecidmap <string>|[<string> ...]
  1049. %   written by Taiji Yamada <taiji@aihara.co.jp>
  1050. /.makecidmap {
  1051.   dup length maxstring le {
  1052.     .makecidmapstring
  1053.   } {
  1054.     dup length dup maxstring idiv exch
  1055.     maxstring mod 0 ne { 1 add } if array exch
  1056.     0 1 3 index length 1 sub {
  1057.       dup maxstring mul 1 index 1 add maxstring mul
  1058.       3 index length .min 1 index sub
  1059.       3 index 3 1 roll getinterval
  1060.       .makecidmapstring
  1061.       3 index 3 1 roll put
  1062.     } for pop
  1063.   } ifelse
  1064. } bind def
  1065.  
  1066. % <file> .loadttcidfont <cidtype2font>
  1067. /.loadttcidfont {
  1068.   .loadttfonttables
  1069.   .makesfnts
  1070.     % CIDFontType2 fonts don't have a cmap: they are indexed by CID.
  1071.   /.ttencmapproc false def
  1072.   mark
  1073.   .ttkeys
  1074.   .definettcidfont
  1075. } bind def
  1076.  
  1077. % - .getgsub -
  1078. % Defines gsubh, gsubv, gsubh2v and also defines gsubver, gsubfmt
  1079. %   in the case that GSUB table has 'Single Substitution Format 2'
  1080. %   which is formally used for vertically oriented glyphs such as CJK fonts.
  1081. % Written by Hideyuki Suzuki <hideyuki@sat.t.u-tokyo.ac.jp>
  1082. % Modified by Taiji Yamada <taiji@aihara.co.jp>
  1083. %
  1084. % [GSUB - The Glyph Substitution Table]
  1085. % Index    Size    Type    Name of Entry
  1086. % -----------------------------------
  1087. % 0    4    Fixed    Version
  1088. % 4    2    Offset    ScriptList
  1089. % 6    2    Offset    FeatureList
  1090. % 8    2    Offset    LookupList
  1091. %
  1092. % [Single Substitution Format 2, Subtable at LookupList]
  1093. % Index    Size    Type    Name of Entry
  1094. % -----------------------------------
  1095. % 0    2    uint16    SubstFormat
  1096. % 4    2    Offset    Coverage(--)
  1097. % 6    2    uint16    GlyphCount
  1098. % 8    2    GlyphID    Substitute(vertically oriented glyphs)
  1099. % --    2    uint16    SubstFormat
  1100. % +2    2    uint16    GlyphCount(same as above GlyphCount)
  1101. % +4    2    GlyphID    GlyphArray(horizontally oriented glyphs)
  1102. % -----------------------------------
  1103. % References
  1104. % 1. http://www.microsoft.com/typography/OTSPEC/gsub.htm
  1105. %
  1106. /.getgsub {
  1107.   /gsubhog null def
  1108.   /gsubvog null def
  1109.   /gsubh2v null def
  1110.   tabdict /GSUB .knownget { % if
  1111.     dup /gsubver exch 0 getu32 def
  1112.     %dup /gsubosl exch 4 getu16 12 add def
  1113.     %dup /gsubofl exch 6 getu16 12 add def
  1114.     dup /gsuboll exch 8 getu16 12 add def
  1115.     DEBUG {
  1116.       (gsubver: ) print gsubver =
  1117.       %(gsubosl: ) print gsubosl =
  1118.       %(gsubofl: ) print gsubofl =
  1119.       (gsuboll: ) print gsuboll =
  1120.     } if
  1121.     dup /gsubfmt exch gsuboll 0 add getu16 def
  1122.     DEBUG {
  1123.       (gsubfmt: ) print gsubfmt =
  1124.     } if
  1125. %    gsubver 16#00010000 eq { % ifelse
  1126.       gsubfmt 2 eq { % ifelse
  1127.     dup /gsubocv exch gsuboll 2 add getu16 def
  1128.     dup /gsubglc exch gsuboll 4 add getu16 def
  1129.     % hacked by suzuki toshiya at 2001/3/6
  1130.     %dup /gsubvog exch gsuboll 6 add gsubglc getinterval def
  1131.     %dup /gsubhog exch gsuboll gsubocv add 4 add gsubglc getinterval def
  1132.     dup /gsubvog exch gsuboll 6 add gsubglc 2 mul getinterval def
  1133.     dup /gsubhog exch gsuboll gsubocv add 4 add gsubglc 2 mul getinterval def
  1134.     DEBUG {
  1135.       (gsubocv: ) print gsubocv =
  1136.       (gsubglc: ) print gsubglc =
  1137.  
  1138.       (gsubhog->gsubvog ) =
  1139.       0 2 gsubhog length 2 sub { % for
  1140.         dup
  1141.         gsubhog exch getu16 =only
  1142.         (->) =only
  1143.         gsubvog exch getu16 =
  1144.       } for
  1145.     } if
  1146.     /gsubh2v << 0 2 gsubhog length 2 sub {
  1147.       dup gsubhog exch getu16
  1148.       exch gsubvog exch getu16
  1149.     } for >> def
  1150.       } {
  1151.     %(UNKNOWN GSUB FORMAT.) = flush
  1152.       } ifelse
  1153. %    } {
  1154. %      (ILLEGAL GSUB VERSION.) = flush
  1155. %    } ifelse
  1156.     pop
  1157.   } if
  1158. } bind def
  1159.  
  1160. % glyphid .gsublookup glyphid
  1161. % Lookup substitute table. return the origin if not found.
  1162. %   modified by Taiji Yamada <taiji@aihara.co.jp> and Hideyuki Suzuki
  1163. /.gsublookup {
  1164.   dup gsubh2v exch .knownget { exch pop } if
  1165. } bind def
  1166.  
  1167. % - .getos2 -
  1168. % Defines os2ver, os2cp1, os2cp2
  1169. %   to detect the kind of CID with the OS/2 table of a TrueType font.
  1170. % Written by Taiji Yamada <taiji@aihara.co.jp>
  1171. %
  1172. % [OS/2 - OS/2 and Windows Metrics]
  1173. % Index    Size    Type    Name of Entry
  1174. % -----------------------------------
  1175. % 0    2    USHORT    version
  1176. % 2    2    SHORT    xAvgCharWidth
  1177. % 4    2    USHORT    usWeightClass
  1178. % 6    2    USHORT    usWidthClass
  1179. % 8    2    SHORT    fsType
  1180. % 10    2    SHORT    ySubscriptXSize
  1181. % 12    2    SHORT    ySubscriptYSize
  1182. % 14    2    SHORT    ySubscriptXOffset
  1183. % 16    2    SHORT    ySubscriptYOffset
  1184. % 18    2    SHORT    ySuperscriptXSize
  1185. % 20    2    SHORT    ySuperscriptYSize
  1186. % 22    2    SHORT   ySuperscriptXOffset
  1187. % 24    2    SHORT    ySuperscriptYOffset
  1188. % 26    2    SHORT    yStrikeoutSize
  1189. % 28    2    SHORT    yStrikeoutPosition
  1190. % 30    2    SHORT    sFamilyClass
  1191. % 32    10    BYTE    panose[10]
  1192. % 42    4    ULONG    ulUnicodeRange1
  1193. % 46    4    ULONG    ulUnicodeRange2
  1194. % 50    4    ULONG    ulUnicodeRange3
  1195. % 54    4    ULONG    ulUnicodeRange4
  1196. % 58    4    CHAR    achVendID[4]
  1197. % 62    2    USHORT    fsSelection
  1198. % 64    2    USHORT    usFirstCharIndex
  1199. % 66    2    USHORT    usLastCharIndex
  1200. % 68    2    SHORT    sTypoAscender
  1201. % 70    2    SHORT    sTypoDescender
  1202. % 72    2    SHORT    sTypoLineGap
  1203. % 74    2    USHORT    usWinAscent
  1204. % 76    2    USHORT    usWinDescent
  1205. % 78    4    ULONG    ulCodePageRange1
  1206. % 82    4    ULONG    ulCodePageRange2
  1207. % 86    2    SHORT    sxHeight
  1208. % 88    2    SHORT    sCapHeight
  1209. % 90    2    USHORT    usDefaultChar
  1210. % 92    2    USHORT    usBreakChar
  1211. % 94    2    USHORT    usMaxContext
  1212. % -----------------------------------
  1213. % References
  1214. % 1. http://www.microsoft.com/typography/OTSPEC/os2.htm
  1215. %
  1216. /.getos2 {
  1217.   /os2ver 0 def
  1218.   tabdict (OS/2) cvn .knownget { % if
  1219.     dup /os2ver exch 0 getu16 def
  1220.     os2ver 0 gt { % if
  1221.       %dup /os2typ exch 8 gets16 def
  1222.       %dup /os2fam exch 30 gets16 def
  1223.       dup /os2ur1 exch 42 getu32 def
  1224.       dup /os2ur2 exch 46 getu32 def
  1225.       dup /os2ur3 exch 50 getu32 def
  1226.       dup /os2ur4 exch 54 getu32 def
  1227.       %dup /os2sel exch 62 getu16 def
  1228.       %dup /os2fci exch 64 getu16 def
  1229.       %dup /os2lci exch 64 getu16 def
  1230.       dup /os2cp1 exch 78 getu32 def 
  1231.       dup /os2cp2 exch 82 getu32 def
  1232.       DEBUG {
  1233.     /tmp 64 string def
  1234.     (os2ver: ) print os2ver 2 tmp cvrs =
  1235.     %(os2typ: ) print os2typ 2 tmp cvrs =
  1236.     %(os2fam: ) print os2fam 2 tmp cvrs =
  1237.     (os2ur1: ) print os2ur1 2 tmp cvrs =
  1238.     (os2ur2: ) print os2ur2 2 tmp cvrs =
  1239.     (os2ur3: ) print os2ur3 2 tmp cvrs =
  1240.     (os2ur4: ) print os2ur4 2 tmp cvrs =
  1241.     %(os2sel: ) print os2sel 2 tmp cvrs =
  1242.     %(os2fci: ) print os2fci 2 tmp cvrs =
  1243.     %(os2lci: ) print os2lci 2 tmp cvrs =
  1244.     (os2cp1: ) print os2cp1 2 tmp cvrs =
  1245.     (os2cp2: ) print os2cp2 2 tmp cvrs =
  1246.     [
  1247.       [ 1 0 bitshift (Latin 1)    ]
  1248.       [ 1 1 bitshift (Latin 2)    ]
  1249.       [ 1 2 bitshift (Cyrillic)    ]
  1250.       [ 1 3 bitshift (Greek)    ]
  1251.       [ 1 4 bitshift (Turkish)    ]
  1252.       [ 1 5 bitshift (Hebrew)    ]
  1253.       [ 1 6 bitshift (Arabic)    ]
  1254.       [ 1 7 bitshift (Baltic)    ]
  1255.       [ 1 8 bitshift (Vietnamese)    ]
  1256.       [ 1 16 bitshift (Thai)    ]
  1257.       [ 1 17 bitshift (Japanese)    ]
  1258.       [ 1 18 bitshift (Simplified Chinese)    ]
  1259.       [ 1 19 bitshift (Korean Wansung)    ]
  1260.       [ 1 20 bitshift (Traditional Chinese)    ]
  1261.       [ 1 21 bitshift (Korean Johab)    ]
  1262.       [ 1 31 bitshift (Symbol)    ]
  1263.     ] { % forall
  1264.       dup 0 get os2cp1 and 0 gt { % if
  1265.         (CodePage: ) print 1 get =
  1266.       } {
  1267.           pop
  1268.       } ifelse
  1269.     } forall
  1270.       } if
  1271.     } if
  1272.     pop
  1273.   } if
  1274. } bind def
  1275.  
  1276. % ---------------- PDF TrueType font loading ---------------- %
  1277.  
  1278. % Strictly speaking, this code should be loaded only if we have a PDF
  1279. % interpreter, but it's so closely tied to the rest of the code in this
  1280. % file that we always include it.
  1281.  
  1282. % <plat+enc> .findcmap <subtable> true
  1283. % <plat+enc> .findcmap false
  1284. /.findcmap {
  1285.   false exch tabdict /cmap get
  1286.         % Some fonts have multiple cmaps with the same platform and
  1287.         % encoding.  Use the first one we find.
  1288.   0 1 2 index 2 getu16 1 sub {
  1289.         % Stack: false plat+enc cmap index
  1290.     8 mul 4 add 1 index exch 8 getinterval 
  1291.     dup 0 4 getinterval 3 index eq {
  1292.       4 getu32 1 index exch 1 index length 1 index sub getinterval
  1293.       4 -1 roll not 4 2 roll exit
  1294.     } if pop
  1295.   } for
  1296.         % Stack: false plat+enc cmap || subtable true plat+enc cmap
  1297.   pop pop
  1298. } bind def
  1299.  
  1300. % <subcmap> <chartoglyphmap> .pdfmapchars
  1301. %   /CharStrings <charstrings> /Encoding <encoding>
  1302. % Uses encoding
  1303. /.pdfmapchars {
  1304.   exch cmaparray /cmapencoding exch def
  1305.     % Invert glyphencoding (post).
  1306.   /inversepost glyphencoding length dict def
  1307.   0 1 glyphencoding length 1 sub {
  1308.     glyphencoding 1 index get exch inversepost 3 1 roll put
  1309.   } for
  1310.   /CharStrings mark 3 -1 roll {
  1311.     dup type /arraytype eq {
  1312.       exch /ch exch def { ch exch .pdfaddchar } forall
  1313.     } {
  1314.       .pdfaddchar
  1315.     } ifelse
  1316.   } forall
  1317.     % Add a .notdef => 0 entry if needed.  Per Adobe's spec,
  1318.     % .dicttomark (>>) adds pairs in top-to-bottom order.
  1319.   /.notdef 0
  1320.   .dicttomark
  1321.   /Encoding encoding
  1322. } bind def
  1323. % <charname> <charcode> .pdfaddchar <charname> <glyph#>
  1324. % <charname> <charcode> .pdfaddchar -
  1325. /.pdfaddchar {
  1326.   dup cmapencoding length lt {
  1327.     cmapencoding exch get dup 0 eq {
  1328.       pop .pdfaddpost
  1329.     } if
  1330.   } {
  1331.     pop .pdfaddpost
  1332.   } ifelse
  1333. } bind def
  1334. % <charname> .pdfaddpost <charname> <glyph#>
  1335. % <charname> .pdfaddpost -
  1336. /.pdfaddpost {
  1337.   inversepost 1 index .knownget not { pop } if
  1338. } bind def
  1339.  
  1340. % - .pdfcharkeys /CharStrings <charstrings> /Encoding <encoding>
  1341. /.pdfcharkeys {
  1342.     % The following algorithms are per the PDF Reference, Second Edition
  1343.     % (PDF 1.3 reference manual).
  1344.   encoding null eq {
  1345.     .charkeys        % use default algorithm
  1346.   } {
  1347.     <00030001> .findcmap {
  1348.       AdobeGlyphList .pdfmapchars
  1349.     } {
  1350.       <00010000> .findcmap {
  1351.     .romanmacdict .pdfmapchars
  1352.       } {
  1353.     .charkeys    % use default algorithm
  1354.       } ifelse
  1355.     } ifelse
  1356.   } ifelse
  1357. } bind def
  1358.  
  1359. % <file> <encoding|null> .loadpdfttfont <type42font>
  1360. /.loadpdfttfont {
  1361.   exch .loadttfonttables
  1362.   /encoding exch def
  1363.   .makesfnts
  1364.   .getpost
  1365.   .pickcmap
  1366.   mark
  1367.   .pdfcharkeys
  1368.   .ttkeys
  1369.   .definettfont
  1370. } bind def
  1371.  
  1372. % ---------------- CJK TrueType font loading ---------------- %
  1373.  
  1374. % Written by the gs-cjk project
  1375.  
  1376. % .parsecmap
  1377. % push an array as a result of reading a CMap file.
  1378. % the array is of the following form.
  1379. %   [ [ [ dst src num ] [ dst src num ] ... [ dst src num ] ]
  1380. %     [ [ dst src num ] [ dst src num ] ... [ dst src num ] ]
  1381. %     ...
  1382. %     [ [ dst src num ] [ dst src num ] ... [ dst src num ] ] ]
  1383. % each array [dst src num] corresponds to each line within
  1384. % /begin{bf,cid}{char,range}/end{bf,cid}{char,range} pairs.
  1385.  
  1386. /.parsecmapdict mark
  1387.  
  1388.   % override system operators
  1389.   /findresource { pop } bind
  1390.   /defineresource { pop pop } bind
  1391.   /dict {}
  1392.   /def { pop pop } bind
  1393.   /dup null
  1394.   /begin { pop } bind
  1395.   /end {}
  1396.   /currentdict null
  1397.  
  1398.   % override CMap operators
  1399.   /usecmap { pop } bind
  1400.   /CMapName null
  1401.   /begincmap { [ } bind
  1402.   /endcmap { ] } bind
  1403.   /begincodespacerange { pop mark } bind
  1404.   /endcodespacerange { cleartomark } bind
  1405.   /beginnotdefrange { pop mark } bind
  1406.   /endnotdefrange { cleartomark } bind
  1407.   /beginbfchar { /parsecmapcounter exch def } bind    % for FromCID CMaps
  1408.   /endbfchar {
  1409.     parsecmapcounter dup array exch 1 sub -1 0 {
  1410.       [ 5 3 roll exch .strtoint 1 ]
  1411.       2 index 3 1 roll put
  1412.     } for
  1413.   } bind
  1414.   /beginbfrange { begincidrange }                       % for FromCID CMaps
  1415.   /endbfrange { endcidrange }
  1416.   /begincidchar { beginbfchar }                % for ToCID CMaps
  1417.   /endcidchar { endbfchar }
  1418.   /begincidrange { /parsecmapcounter exch def } bind    % for ToCID CMaps
  1419.   /endcidrange {
  1420.     parsecmapcounter dup array exch 1 sub -1 0 {
  1421.       [ 6 3 roll 3 1 roll .strtoint exch .strtoint exch 1 index sub 1 add ]
  1422.       2 index 3 1 roll put
  1423.     } for
  1424.   } bind
  1425.  
  1426.   % misc
  1427.   /parsecmapcounter 0
  1428.  
  1429. .dicttomark def         % .parsecmapdict
  1430.  
  1431.  
  1432. /.parsecmapfname 100 string def
  1433.  
  1434. % <CMapName> .parsecmap <array>
  1435. % Return the contents of the CMap.  If the CMap is not found, empty array
  1436. % is returned.  Note that usecmap is ignored because of efficiency.
  1437. /.parsecmap {
  1438.   /CMap /Category findresource begin
  1439.   //.parsecmapfname ResourceFileName end        % filename
  1440.   dup status {
  1441.     pop pop pop pop
  1442.     .parsecmapdict begin run end
  1443.   } {
  1444.     pop []
  1445.   } ifelse
  1446. } bind def
  1447.  
  1448. % .buildcmaptab
  1449. % construct a cmap table using information obtained from horizontal/vertical
  1450. % CMaps, ToUnicode CMap, and substition data.
  1451.  
  1452. % cmap /CMap proc .applyCMap cmap
  1453. /.applyCMap {
  1454.   exch .parsecmap            % {} [[[].].]
  1455.   dup length 1 sub -1 0 {        % {} [[[].].] len-1 -1 0 {} for
  1456.     1 index exch get            % {} [[[].].] [[].]
  1457.     dup length 1 sub -1 0 {        % {} [[[].].] [[].] len-1 -1 0 for {}
  1458.       1 index exch get            % {} [[[].].] [[].] [ cid gid num ]
  1459.       cvx exec cmapglyphs        % {} [[[].].] [[].] cid gid num gmap
  1460.       3 1 roll .safegetinterval {    % {} [[[].].] [[].] cid [gid'..]
  1461.     4 index exec dup cmapglyphs 0 get eq {
  1462.       % found no glyph
  1463.       pop
  1464.     } {
  1465.       % found a glyph
  1466.       5 index exch 2 index exch .safeput
  1467.     } ifelse
  1468.     1 add                % {} [[[].].] [[].] cid++
  1469.       } forall pop
  1470.     } for                % {} [[[].].] [[].]
  1471.     pop                    % {} [[[].].]
  1472.   } for                    % {} [[[].].]
  1473.   pop pop                %
  1474. } bind def
  1475.  
  1476. % cmap /CMap-V .applyvCMap cmap
  1477. /.applyvCMap {
  1478.   gsubh2v null ne {
  1479.     { .gsublookup } .applyCMap
  1480.   } {
  1481.     { } .applyCMap
  1482.   } ifelse
  1483. } bind def
  1484.  
  1485. % cmap /CMap-H .applyhCMap cmap
  1486. /.applyhCMap {
  1487.   { } .applyCMap
  1488. } bind def
  1489.  
  1490. % cmap /CMap-V .applyvCMapUnicode cmap
  1491. /.applyvCMapUnicode {
  1492.   gsubh2v null ne {
  1493.     {
  1494.       dup 16#f900 ge
  1495.       1 index 16#ff00 ge 2 index 16#ff9f le and not
  1496.       and not {
  1497.         .gsublookup
  1498.       } if
  1499.     } bind .applyCMap
  1500.   } {
  1501.     { } .applyCMap
  1502.   } ifelse
  1503. } bind def
  1504.  
  1505. % cmap /Adobe-*-* .applyCIDToCode cmap
  1506. /.applyCIDToCode {
  1507.   .parsecmap
  1508.   {
  1509.     {                           % cmap [ dist cid num ]
  1510.       dup 0 get length 2 gt {   % multi-byte dist is not supported yet.
  1511.     pop
  1512.       } {
  1513.         cvx exec exch           % cmap dist num cid
  1514.         cmapglyphs 4 2 roll     % cmap cid cmapglyphs dist num
  1515.         exch .strtoint exch
  1516.         .safegetinterval        % cmap cid subcmapglyphs
  1517.         {                       % cmap cid gid
  1518.           2 index 2 index       % cmap cid gid cmap cid
  1519.           3 2 roll              % cmap cid cmap cid gid
  1520.           .safeput              % cmap cid
  1521.           1 add                 % cmap nextcid
  1522.         } forall pop
  1523.       } ifelse
  1524.     } forall
  1525.   } forall
  1526. } bind def
  1527.  
  1528. % cmap /Adobe-*-UCS2 .applyCIDToUnicode cmap
  1529. /.applyCIDToUnicode {
  1530.   .parsecmap
  1531.   {
  1532.     {                           % cmap [ distuni cid num ]
  1533.       dup 0 get length 2 gt     % multi-byte dist is not supported yet.
  1534.       1 index 0 get <fffd> eq   % the value <fffd> is regard as undefined code.
  1535.       or {
  1536.     pop
  1537.       } {
  1538.         cvx exec exch           % cmap distuni num cid
  1539.         cmapglyphs 4 2 roll     % cmap cid cmapglyphs distuni num
  1540.         exch .strtoint exch     % cmap cid cmapglyphs distuni num
  1541.         .safegetinterval        % cmap cid subcmapglyphs
  1542.         {                       % cmap cid gid
  1543.           2 index 2 index       % cmap cid gid cmap cid
  1544.           3 2 roll              % cmap cid cmap cid gid
  1545.           .safeput              % cmap cid
  1546.           1 add                 % cmap nextcid
  1547.         } forall pop
  1548.       } ifelse
  1549.     } forall
  1550.   } forall
  1551. } bind def
  1552.  
  1553. /.buildcmapdict mark
  1554.   /Adobe-CNS1 <<
  1555.     /Registry (Adobe)
  1556.     /Ordering (CNS1)
  1557.     /CIDCounts [ 14099 17408 17601 18846 18962 ]
  1558.     /Big5 { 0 {
  1559.       /Adobe-CNS1-ETen-B5 .applyCIDToCode
  1560.       /ETen-B5-V .applyvCMap
  1561.       /ETen-B5-H .applyhCMap
  1562.     } }
  1563.     /Unicode { 3 {
  1564.       /Adobe-CNS1-UCS2 .applyCIDToUnicode
  1565.       /UniCNS-UCS2-V .applyvCMapUnicode
  1566.       /UniCNS-UCS2-H .applyhCMap
  1567.     } }
  1568.   >>
  1569.   /Adobe-GB1 <<
  1570.     /Registry (Adobe)
  1571.     /Ordering (GB1)
  1572.     /CIDCounts [ 7717 9897 22127 22353 29064 ]
  1573.     /PRC { 2 {
  1574.       /Adobe-GB1-GBK-EUC .applyCIDToCode
  1575.       /GBK-EUC-V .applyvCMap
  1576.       /GBK-EUC-H .applyhCMap
  1577.     } }
  1578.     /Unicode { 4 {
  1579.       /Adobe-GB1-UCS2 .applyCIDToUnicode
  1580.       /UniGB-UCS2-V .applyvCMapUnicode
  1581.       /UniGB-UCS2-H .applyhCMap
  1582.     } }
  1583.   >>
  1584.   /Adobe-Japan1 <<
  1585.     /Registry (Adobe)
  1586.     /Ordering (Japan1)
  1587.     /CIDCounts [ 8284 8359 8720 9354 15444 ]
  1588.     /ShiftJIS { 2 {
  1589.       /Adobe-Japan1-90ms-RKSJ .applyCIDToCode
  1590.       /90ms-RKSJ-V .applyvCMap
  1591.       /90ms-RKSJ-H .applyhCMap
  1592.     } }
  1593.     /Unicode { 4 {
  1594.       /Adobe-Japan1-UCS2 .applyCIDToUnicode
  1595.       /UniJIS-UCS2-V .applyvCMapUnicode
  1596.       /UniJIS-UCS2-H .applyhCMap
  1597.     } }
  1598.   >>
  1599.   /Adobe-Japan2 <<
  1600.     /Registry (Adobe)
  1601.     /Ordering (Japan2)
  1602.     /CIDCounts [ 6068 ]
  1603.     /Unicode { 0  {
  1604.       /UniHojo-UCS2-V .applyvCMapUnicode
  1605.       /UniHojo-UCS2-H .applyhCMap
  1606.     } }
  1607.   >>
  1608.   /Adobe-Korea1 <<
  1609.     /Registry (Adobe)
  1610.     /Ordering (Korea1)
  1611.     /CIDCounts [ 9333 18155 18352 ]
  1612.     /Johab { 1 {
  1613.       /KSC-Johab-V .applyvCMap
  1614.       /KSC-Johab-H .applyhCMap
  1615.     } }
  1616.     /Unicode { 2 {
  1617.       /Adobe-Korea1-UCS2 .applyCIDToUnicode
  1618.       /UniKS-UCS2-V .applyvCMapUnicode
  1619.       /UniKS-UCS2-H .applyhCMap
  1620.     } }
  1621.     /Wansung { 1 {
  1622.       /Adobe-Korea1-KSCms-UHC .applyCIDToCode
  1623.       /KSCms-UHC-V .applyvCMap
  1624.       /KSCms-UHC-H .applyhCMap
  1625.     } }
  1626.   >>
  1627.   /Identity <<    % ttcmap ordering CIDMap only for specific and rare CJK TTF
  1628.     /Registry (Unregistered)    % Thus Registry value is unpredictable. This
  1629.     /Ordering (Identity)    % CIDFont can be used with Identity-H|V CMap
  1630.     /CIDCounts [ 65535 ]
  1631.     /H { 0 {
  1632.       /Identity-H .applyhCMap    % for ttcmap-order CIDMap
  1633.     } }
  1634.     /V { 0 {
  1635.       /Identity-H .applyvCMap    % for ttcmap-order and vertically-used CIDMap
  1636.     } }
  1637.   >>
  1638. .dicttomark def
  1639.  
  1640. /.ttencmap <<
  1641.   /Identity              false
  1642.   /Auto                  { .ttencoding {
  1643.                              dup .ttcharset exch get exec exch true
  1644.                            } { false } ifelse
  1645.                          } bind
  1646.   /Adobe-CNS1            { /Adobe-CNS1   .ttencoding }
  1647.   /Adobe-GB1             { /Adobe-GB1    .ttencoding }
  1648.   /Adobe-Japan1          { /Adobe-Japan1 .ttencoding }
  1649.   /Adobe-Japan2          { /Adobe-Japan2 .ttencoding }
  1650.   /Adobe-Korea1          { /Adobe-Korea1 .ttencoding }
  1651.   /Adobe-CNS1-Big5       { /Adobe-CNS1   /Big5     true }
  1652.   /Adobe-CNS1-Unicode    { /Adobe-CNS1   /Unicode  true }
  1653.   /Adobe-GB1-PRC         { /Adobe-GB1    /PRC      true }
  1654.   /Adobe-GB1-Unicode     { /Adobe-GB1    /Unicode  true }
  1655.   /Adobe-Japan1-ShiftJIS { /Adobe-Japan1 /ShiftJIS true }
  1656.   /Adobe-Japan1-Unicode  { /Adobe-Japan1 /Unicode  true }
  1657.   /Adobe-Japan2-Unicode  { /Adobe-Japan2 /Unicode  true }
  1658.   /Adobe-Korea1-Johab    { /Adobe-Korea1 /Johab    true }
  1659.   /Adobe-Korea1-Unicode  { /Adobe-Korea1 /Unicode  true }
  1660.   /Adobe-Korea1-Wansung  { /Adobe-Korea1 /Wansung  true }
  1661.   /Identity-H            { /Identity     /H        true }
  1662.   /Identity-V            { /Identity     /V        true }
  1663. >> def
  1664.  
  1665. /.ttcharset <<
  1666.   /Unicode  { .detectos2 }
  1667.   /ShiftJIS /Adobe-Japan1
  1668.   /Big5     /Adobe-CNS1
  1669.   /PRC      /Adobe-GB1
  1670.   /Wansung  /Adobe-Korea1
  1671.   /Johab    /Adobe-Korea1
  1672. >> def
  1673.  
  1674. /.ttencdict <<
  1675.   <00030001> /Unicode
  1676.   <00030002> /ShiftJIS
  1677.   <00030003> /Big5
  1678.   <00030004> /PRC
  1679.   <00030005> /Wansung
  1680.   <00030006> /Johab
  1681. >> def
  1682.  
  1683. /.ttencoding {
  1684.   .ttencdict cmapsub 0 4 getinterval .knownget
  1685. } bind def
  1686.  
  1687. /.ttos2tab [
  1688.   [ 1 20 bitshift /Adobe-CNS1   ]
  1689.   [ 1 18 bitshift /Adobe-GB1    ]
  1690.   [ 1 17 bitshift /Adobe-Japan1 ]
  1691.   [ 1 19 bitshift /Adobe-Korea1 ]
  1692.   [ 1 21 bitshift /Adobe-Korea1 ]
  1693. ] def
  1694.  
  1695. /.detectos2 {
  1696.   /Identity    % default linear ordering to GID, Adobe Identity CIDs
  1697.   os2ver 0 gt {
  1698.     .ttos2tab {
  1699.       dup 0 get os2cp1 and 0 ne {
  1700.         1 get exch
  1701.       } if pop
  1702.     } forall
  1703.   } if
  1704. } bind def
  1705.  
  1706. % /Charset /TTEncoding .buildcmaptab cmap
  1707. /.buildcmaptab {
  1708.   .buildcmapdict 3 2 roll get begin
  1709.   cvx exec exch CIDCounts end exch get array
  1710.   dup length 1 sub 0 1 3 -1 roll { 1 index exch cmapglyphs 0 get put } for
  1711.   exch exec
  1712. } bind def
  1713.  
  1714. % -mark- <key> <value> ... .definettcidfont <font>
  1715. %   rapid version of .definecjkvttcidfont
  1716. % Proposed by Hideyuki Suzuki <hideyuki@sat.t.u-tokyo.ac.jp>
  1717. % Modified by Taiji Yamada <taiji@aihara.co.jp>
  1718. /.definettcidfont {
  1719.   /CIDFontName fontname
  1720.   /CIDFontType 2
  1721.   /CIDSystemInfo
  1722.   mark .ttencmapproc {
  1723.     .buildcmapdict 3 2 roll get begin
  1724.     cvx exec pop
  1725.     /Supplement exch
  1726.     /Registry Registry
  1727.     /Ordering Ordering
  1728.     end
  1729.   } {
  1730.     /Registry (Adobe)
  1731.     /Ordering (Identity)    % pursuant to makeIdentityCMap in pdf_font.ps
  1732.     /Supplement 0
  1733.   } ifelse
  1734.   .dicttomark
  1735.   /CharStrings mark /.notdef 0 .dicttomark
  1736.   .ttencmapproc {
  1737.     /cmapglyphs cmaptab cmaparray def
  1738.     exec .buildcmaptab
  1739.     dup length /CIDCount exch
  1740.     3 -1 roll .makecidmap    % it has not supported a dictionary yet
  1741.     /CIDMap exch        % it should be a string or an array of strings
  1742.   } {
  1743.     /CIDCount numloca
  1744.     /CIDMap 0    % an integer interpreted as an offset from GI (see #5012 p.16)
  1745.   } ifelse
  1746.   /GDBytes 2
  1747.   .dicttomark
  1748.   end end dup /CIDFontName get exch /CIDFont defineresource
  1749. } bind def
  1750.  
  1751. % Load a TrueType font from a file as a CIDFontType 2 font.
  1752. %   rapid version of .loadcjkvttcidfont
  1753. % Proposed by Hideyuki Suzuki <hideyuki@sat.t.u-tokyo.ac.jp>
  1754. % Modified by Taiji Yamada <taiji@aihara.co.jp>
  1755. %
  1756. % <file>             .loadttcidfont <cidtype2font>
  1757. % <file> <fontindex> .loadttcidfont <cidtype2font>
  1758. %   detect a kind of CID and encode a TrueType font to a CID-Keyed font.
  1759. %
  1760. % <file>             <ttcidcode> .loadttcidfont <cidtype2font>
  1761. % <file> <fontindex> <ttcidcode> .loadttcidfont <cidtype2font>
  1762. %   load a TrueType font and encode it with the kind of CID described
  1763. %   in <ttcidcode> which is one of entry in .ttencmap.
  1764. /.loadcjkvttcidfont {
  1765.   dup type /nametype ne { /Auto } if
  1766.   1 index type /integertype eq { 3 1 roll } { exch } ifelse
  1767.   .loadttfonttables
  1768.   .makesfnts
  1769.   .pickcmap    % when we can't pick a Microsoft cmap table, do what to do
  1770.   .getgsub
  1771.   .getos2       % we need an OS/2 table for CJKV TrueType fonts (by taiji)
  1772.   .ttencmap exch get /.ttencmapproc exch def
  1773.   mark
  1774.   .ttkeys
  1775.   .definettcidfont
  1776. } bind def
  1777.  
  1778. % Open and load a TrueType font from a file as a CIDFontType 2 font.
  1779. % <filename>             .openttcidfont <cidtype2font>
  1780. % <filename> <fontindex> .openttcidfont <cidtype2font>
  1781. % <filename>             <ttcidcode> .openttcidfont <cidtype2font>
  1782. % <filename> <fontindex> <ttcidcode> .openttcidfont <cidtype2font>
  1783. /.openttcidfont {
  1784.   1 dup index type /nametype eq { 1 add } if
  1785.   dup index type /integertype eq { 1 add } if
  1786.   dup 1 add -1 roll (r) file exch 1 roll
  1787.   .loadcjkvttcidfont    % rapid version, since 20010316
  1788. } bind def
  1789.